home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / server / Run_Host.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-02-10  |  726 b   |  42 lines
  1. /*
  2.  * Run_Host.rexx
  3.  *
  4.  * USAGE: Run_Host(ProgPath,PortName)
  5.  *
  6.  * RETURN: boolean success
  7.  *
  8.  * This script is a function that run an external program and wait for its
  9.  * arexx-port. First external function for the OLE system.
  10.  *
  11.  * $(C): (1994, Rocco Coluccelli, Bologna)
  12.  *
  13.  * $VER: Run_Host.rexx 1.02 (09.Sep.94)
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. IF GETCLIP('debug') = 'yes' THEN TRACE ?r
  19.  
  20. max_iter = 4
  21.  
  22.  
  23. IF ~SHOW('p',ARG(2)) THEN DO
  24.  
  25.     pos = LASTPOS('/',ARG(1))
  26.     IF pos = 0 THEN
  27.         pos = POS(':',ARG(1))
  28.  
  29.     IF pos > 0 THEN
  30.         CALL PRAGMA('Directory',LEFT(ARG(1),pos))
  31.  
  32.     cmd = 'Run' ARG(1)
  33.         ADDRESS COMMAND cmd
  34.  
  35.     cmd = 'WaitForPort' ARG(2)
  36.     DO FOR max_iter WHILE ~SHOW('p',ARG(2))
  37.         ADDRESS COMMAND cmd
  38.     END
  39. END
  40.  
  41. RETURN SHOW('p',ARG(2))
  42.